home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 April: Mac OS SDK / Dev.CD Apr 96 SDK / Dev.CD Apr 96 SDK2.toast / Development Kits (Disc 2) / ScriptX / Draggable ScriptX Folders / utils / DTK / source / DIRIMP_SX / demome.sx < prev    next >
Encoding:
Text File  |  1996-02-28  |  988 b   |  78 lines  |  [TEXT/ttxt]
  1. (
  2.     open TitleContainer path:"dirimp/dirimp.sxt"    
  3. )
  4.  
  5.  
  6. module DirectorTitle
  7.     uses ScriptX
  8.     uses Scratch
  9.     
  10.     uses ScorePlayer
  11.     
  12.     exports tc
  13.     exports sp
  14.     exports w
  15. end
  16.  
  17.  
  18.  
  19. in module DirectorTitle
  20.  
  21.     global sp := undefined
  22.     global w
  23.     global tc
  24.     
  25.     tc := new TitleContainer path:"demo.sxt"
  26.  
  27.  
  28.  
  29.  
  30. module directorTransport
  31.     uses ScriptX
  32.     uses DirectorImporter
  33.     uses ScorePlayer
  34.     uses DirectorTitle
  35. end
  36.  
  37.  
  38.  
  39. in module directorTransport
  40.  
  41.  
  42.     -- Import the Director movie
  43.     sp := ImportDirector container:tc.storageContainer
  44.  
  45.  
  46.  
  47. in module DirectorTitle
  48.  
  49.     function startTitle -> (
  50.         stop sp
  51.         gotobegin sp
  52.         play sp
  53.     )
  54.  
  55.     gotobegin sp
  56.  
  57.     -- Create a ScriptX window
  58.     w := new Window boundary:(new rect y1:40 x2:sp.targetSpace.width y2:(40 + sp.targetSpace.height))
  59.  
  60.     -- Append the ScorePlayer's space to the window
  61.     append w sp.targetSpace
  62.  
  63.     -- Show the window
  64.     show w
  65.  
  66.     -- Save animation before playing
  67.  
  68.     append tc (getModule @DirectorTitle)
  69.     tc.startupAction := (self -> 
  70.         (
  71.             startTitle()
  72.         )
  73.     )
  74.  
  75.  
  76.     close tc
  77.     
  78.